Wtl-Course-Start-Point names an undocumented function, with lambda list (OBJECT).
(SETF Wtl-Course-Start-Point) names an undocumented function, with lambda list (NEW-VALUE OBJECT).